home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n07.arc / ECHODEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-27  |  488b  |  22 lines
  1. PROGRAM EchoDemo;
  2. USES Echo;
  3.  
  4. BEGIN
  5.   IF InputRedirected THEN WriteLn('Input is being redirected');
  6.   IF OutputNul THEN
  7.     BEGIN
  8.       WriteLn('Output is being sent to the Nul device');
  9.       EchoOff;
  10.     END;
  11.   IF OutputRedirected THEN WriteLn('Output is being redirected');
  12.  
  13.   WriteLn('--------1--------');
  14.   EchoOff;
  15.   WriteLn('--------2--------');
  16.   IF NOT OutputNul THEN EchoOn;
  17.   WriteLn('--------3--------');
  18.   EchoOff;
  19.   WriteLn('--------4--------');
  20.  
  21. END.
  22.